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! 

i DEFINITION FILE FOR FCP COMPILATION 

f Version: *v04-000' 

i peeereeeererereeeeererereeeenereteeeeneeeteenteteeneneeeeererrerereeeeeeetet 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITA L EQUIPHENT COR PORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVE 


a 
* 
* 
® 
+ 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
it COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TOANY © 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION * 

® 

te 

® 

® 

* 

* 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRR OR ARERR EER AAAAAAAEAERAAEEARAREEEAEAEEAAARAAEAAAARAREEHRERAE EEA AEETE eee 


FACILITY: FIIACP Structure Level 2 
ABSTRACT: 


These are the data stucture definitions and random macros 
used to compile FCP. 


ENVIRONMENT: 


STARLET operating system, including privileged system calls | 
and internal system subroutines. | 


---— 
” ss 
> 


MODIFIED BY: 


v03-033 CDS0020 Christian D. Saether 30-Aug-1984 
Add flag to disable updating of FILE_HEADER by READ_HEADER. 
Add cleanup flag to note refcnt up on primary fcb from 
fid_to_spec routine. 


v03-0352 LMPO303 L. Mark Pilant, 21-Aug-1984 13:21 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 9-Dec-1976 10:53 | 


] 
| 
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Up the yrorege for the full file spec to accomodate a 16 


Reduce size of LOCAL_ARB; make APPLY_RVN and DEFAULT_R 
macros; add SURFACE_ERROR macro; redesign globai sbalone macro 


v03-019 ACG0402 Andrew C. Goldstein, 14-Mar-1984 15:02 


' . 
Tevet directory tree. : 
v03-031 CDS0019 sogjen D. Saether 13-Aug-1984 | ; W 
: Add CLF mance casTALe | . 
Remove AV_MARKDEL lens | LIT 
i v03-030 cDS0018 Christian D. Saethe 6-Aug-1984 | ; 
Add STS_HAD_LOCK and ér8 _KEEP_ tock. flags. if 
i v03-029 ¢DS0017 Christian D. Saether 4~Aug-1984 + 4 
: Add at poy NOSAFE because bliss generates cse's ; 

i for values that cross routine calls that ere modified, MAC 
: Add DIRINDX TYPE buffer type. 

: Add CACHE_HBR cell. Remove obsolete cell. ‘ 

: Modify base eenprent so that CLEANUP_FLAGS are at 0. ; 

i Remove L_JSB_C Linkage (same as L_JSB now). . 7 
: Add L “HAP POINTER Linkage. Declare registers notused ; i 
in the js6 Linkages. ia 
i v03-028 CDS0016 Christian D. Seether  15-July-1984 : ih 
' Reflect the addition of another buffer poo , t 
' Add another Level of BIND to BIND_COMMON. This . ¢ 
; lets bliss realize that the contents of the base : t 
register is a constant. ; t 
i v03-027 ¢ps0015 Christian D. Saether  2=July-1984 

: Add STS_DISKREAD fla and STSFLGS bitvect tor 

to inditate last buffer read from disk. 

i v03-026 CoS0014 Christian D. Saether 9-May-1984 

Remove definition fer VC_NOALLOC. 

i v03-025 ACG0427 Andrew C. Goldstein, | 8-May-1984 11:08 

Restructure saved audit info to save space 

i V03-024 ACG0424 Andrew C. Goldstein 1-May-1984 20:13 

Add flags to identify implicit SYSPRV to volume owner 

i v03-023 CDS0013 Christian D. Saether 20-Apr-1984 

: Rework various fields, linkages, and impure storage 

: for file access arbitration changes 

i Eliminate intermediate BIND declaration in BIND_COMMON. | 

} Try word-relative references once again. ; N 
i V03-022 ACG0415 Andrew C. Goldstein, | 12-Apr-1984 13:31 

: Remove ACL sey cells 

i v03-021 RSHO135 Sco 06-Mar-1984 

Add AUDIT_COUNT aod AUDIT MARGLIST to global storage. 

v03-020 ACG0408 Andrew C. Goldstein, 20-Mar-1984 16: 106 

: 

i 
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v03-018 


v03-017 


v03-016 


¥03-015 


v03-014 


v03-013 


v03-012 


v03-011 


v03-010 


v03-009 


v03-008 


v03-007 


v03-006 
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Go back to default longword addressing - it's too big 


CdS$0012 Christian D. Saether 13-Feb-1984 

Add ACB_ADDR to COMMON BIND statement. 

Add BFR LIST, BFR CREDITS, and BFRS_USED to COMMON BIND. 
Add VC_SEQNUM field. 

Add L_JSB_C and L RELEASE CACHE Linkages. 

Replace NO_LCKCHK with CACHELOCK. 

LMPO186 L. Mark Pilant, 35-Feb-1984 11:53 
Add a new block type CHIP_TYPE for CHIP blocks. 

CDS$0011 Christian D. Saether 19-Dec-1983 


Define BCR11 Linkage to base common off register 11. 
Create a BIND definition of popular COMMON cells 

to minimize the number of external references in 
the modules that reference them. 

Remove ADDRESSING_MODE switch forcing longword 
references on all EXTERNAL declarations. 


€DS0010 Christian D0. Saether 14-0ct-1983 
Add JSB_LINK Linkage definition. 
CDS0009 Christian D. Saether 28-Sep-1983 


Add VC_FLAGS fields to include status flags. 
Increase number of lock blocks to 5. 


CdS0008 Christian D. Saether ehrsepetves 
Add definition for number of serial lock blocks. 
CDS0007 Christian D. Saether 14-Sep-1983 
Add file lock value block context fields. 

C0S0006 Christian D. Saether 12-Sep-1983 
Add volume lock value block fields. 

ACG0334 Andrew C. Goldstein 6-May-1983 14:33 
Fix consistency in declaration of USER_STATUS 
CdS0005 Christian D. Saether 21-Apr-1983 
Add access lock value block flag DELAY_TRUNC and 
value TRUNC_VBN. 

Add Linkage for TRUNC_CHECKS. 

CDS0004 Christian D. Saether 6-Apr-1983 


Define Linkage for LOCK_MODE routine. 
Define access lock value block flag MARKDEL. 
Define ERRCHK macro. 


$TJ3068 Steven T. Jeffreys, 23-Mar-1983 
Defined Literal values for erase on delete support. 
LMP0059 L. Mark Pilant 27-Dec-1982 9:03 


Always create a FCB for a file header. This eliminates a 
lot of special case FCB handling. 


F 
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v03-005 ¢DS0003 Christian D. Seether 15-Dec-1982 | 
; Create PIC_DESC macro for runtime init of 
} string descriptor (so it's pic). | 
i v03-004 cps0002 C Saether 15-Oct-1982 

Define all event flags to use 30. 
i v03-003 ¢DS0001 C Saether 6-0 t-1982 
Redefine kernel_call macro to normal call. | 
i v03-002 LMP0036 L. Mark Pilant 30-Jun-1982 14:50 
Add an additional block type ACL_TY°E for ACL data block. 

i v03-001 LMP0037 L. Mark Pilant, 28-Jun-1982 14:56 

Change all external symbol referencing to be longword relative. 

i v02-013 ACG0230 Andrew C. Goldstein, 29-Dec-1981 14:42 

: Add expiration date maintenance 
vO2-012 ACGO245 Andrew C. Goldstein, 23-Dec-1981 20:09 | 
Clean up handling of implicitly spooled files | 
i v02-011 LMP0003 L. Mark Pilant 8-Dce-1981 11:30 

: Add cleanup flag CLF_REMAP to force a rebuild of the files 

; windows. his is necessary if an extend fails due to the 

: user's byte Limit quota being exceeded.) | 
i v02-010 ACG0208 Andrew C. Goldstein, 30-Oct-1981 19:12 

: Add segmented directory record support | 
i v02-009 ACGO167 Andrew C. Goldstein 16-Apr-1980 19:26 

we Previous revision history moved to F11B. REV 
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SWITCHES NOSAFE; 
' 
Declare PSECT usage to minimize page breakage. 


PSECT 


Declare VAX built in functions. 
BUILTIN 


a HMmmmm 
AOnunnnn 
feos 44-44 


SF bebsiptatatyl 


J 
- 
< 
. 


! 
! Structure declarations used for system defined structures to 
; save typing. 


STRUCTURE 

BBLOCK (CO, P, S, E; NJ = 

(BBLOCK+0)<P,S,E>, 

BBLOCKVECTOR Ci, 6. P. & 83 &. BS) 2 
((BBLOCKVECTOR+1*BS)+0)<P,S,E>; 
; Assorted macros used in FCP code 
MACRO 

!' set processor IPL 

SET_IPL (LEVEL) = MTPR (ZREF (LEVEL), PRS_IPL)2; 

Declare code that must be locked into the working set. 


MACRO 


LOCK ~CODE 


H 
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OWN = SLOCKEDD1$, 
_ = SLOCKEDD1$; 


| eeee* Note: The following two macros violate the Bliss benguage definition 
| #eeee in that they make use of the value of SP while building the arg List. 
| eeeee It is the opinion of the Bliss maintainers that this usage is safe 

| #eee@ from planned future optimizations. 


' 
' 
' 
i 
' 
' 
! Macro to call the chenge mode to kernel system service. 
Macro call format is "KERNL_CALL (ROUTINE, ARG], ARG2, ... )"’. 
a 


| 
KERNL_CALL (R) = | 
EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE); 
BUILTIN SP; 
SYSSCMKRNL (R, .SP, %LENGTH=1 
est Zit XLENGTH GTR 1 XTHEN , REMAINING 2%F1) 


: Macro to redefine the old kernel_call macro to a normal call. 


KERNEL_CALL (R) = 
R (ZREMAINING ) 
END2; 


i Macro to call the change mode to exec system service. 
Macro call format is "EXEC_CALL (ROUTINE, ARG1, ARG2, ... )"’. 


MACRO 
EXEC CALL (R) = 
EXTERNAL ROUTINE SYSSCMEXEC : ADDRESSING_MODE (ABSOLUTE); 
SYSSCMEXEC: CR .SP, %LENGTH=-1 
Zif XLENGTH GTR 1 XTHEN , REMAINING X%F1) 

ENDE; 
Macro used to signal fatal errors (internal consistency checks). 
MACRO 


BUG_CHECK (CODE, TYPE, MESSAGE) = 
BEGIN 
BUILTIN BUGW; 
EXTERNAL LITERAL ZNAME("BUGS$_',CODE); 
BUGH (ZNAME ("BUGS_', CODE) OR45 


' | 
i Macro to signal an error status and continue. 
| 
| 


ERR_STATUS [CODE] = 


tat NOT ZDECLARED (US R rays) on 
HEN EXTERNAL USER gar 
ert SE MAP USER STATO 


te Nes ji TUS 
we fy. USER STATUS = CODE; 


i Macro to Sch an error status and exit 
Implemented as a change mode to user lastrustion followed by a RET. 


MACRO 


ERR ~FxIt (CODE) = 
(CHMU (ZREF (ZIF ZNULL (CODE) 2THEN O ZELSE CODE %FI)); 
RETURN (BUILTIN RO; .RO)) 


' 
: Macro to exit with error if value of block is failure. 
MACRO 
omen 71 ch tts: 
TS; 
gif = (CALL); 
If NOT .STS 
THEN ERR_EXIT (.STS) 
; ELSE .STS) 2%; 
Macro to generate a string with a descriptor. 
MACRO 
DESCRIPTOR bbe ING 
UPLI CECHARCOUNT (STRING), UPLIT BYTE (STRING) )%; 
i Macro to dynamically init a given descriptor for © fiven string. 
This avoids the non-pic code generated by the DESCRIPTOR macro above. 


PIC eee HS lb » DESC) = 
0 “= ZCHARCOUNT (STRING); 
DESC = UPLIT (STRING); 2%; 


: Macro to generate a bitmask from a List of bit numbers. 


MACRO 
BITLIST (ITEM) () = 
ZIF ZCOUNT NEQ 0 ZTHEN OR ZFI 1*I TEM BITLIST (ZREMAINING) 
‘ e 
: nee to return the number of actual parameters supplied to a routine 
'¢ 
' 


MACRO 
ACTUALCOUNT = 


N 
BUILTIN AP; 


FCPDEF .832;1 16-SEP-1984 16:59:40.54 Page 7 


eef 
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. (.AP)<0,8> 
ND 


Macro to check assumed values. 


| : 
| 
MACRO | 
ASSUME (Q) - : 
Z1F NOT (Q) : 
ha tuany (‘Assumption ‘', Q, * is not true’) : 
' a; ‘ 
i Macros to do et orithaesrts. The bizarre coon of compere ‘ 
i is used because const? CASE is the only construct that the compiler : 
; flows correctly in conditionals. | : 
MACRO : 
SUBQ (SOURCE, DEST, DEST2) = | 
BUILTIN SUBM; : 
SOURCE, : 
DEST ; 
tif £NULL (DEST2) XTHEN DEST XZELSE DEST2 2FI1 : 
END : 
i; ; 
MACRO | ; 
ADDQ (SOURCE, DEST, DEST2) = ; 
BUILTIN ADDM; ; 
ADDM (2 3 
SOURCE, ; 
TIF ENULL (DEST2) RTHEN DEST ELSE DEST2 ZF ; 
END : 
i; 3 
MACRO : 
CMPQ (SOURCE, REL, DEST) = : 
BEGIN : 
BUILTIN 3 
CASE CHPn ( + SOURCE. DEST) ; 
FROM = = | : 
=1): STRING (REL) EQL ‘LSS' ; 
OR ZSTRING (REL) EQL ‘LEQ' : 
OR XSTRING (REL) EQL ‘NEQ’; : 
(0): ZSTRING (REL) EQL ‘GEQ' : 
OR ZSTRING (REL) EQL ‘LEQ’ 3 
OR XSTRING (REL) EQL ‘EQL'; : 
(1): ZSTRING (REL) EQL ‘GTR | : 
OR ZSTRING (REL) EQL ‘GEQ' : 
OR ZSTRING (REL) EQL ‘NEQ’ | ; 
} 
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| " 


i Macros to apply the current RVN to a file ID from the file structure, 
} and default the RVN to zero when it is the current one. 


MACRO 
APPLY RVN (RVN, CURRENT_RVN) = 


IF .(RVN)<O,8> EQL 0 
THEN (RVN)<6,8> = CURRENT_RVN; 
F_.CRVN)<0,6> EQL 


AND CURRENT RVN EOL 0 
Wea (RVN)<0,8> = 0; 


cig > RVN (RVN, CURRENT _RVN) = 


IF .(RVN)<O,8> EQL CURRENT_RVN 
THEN (RVN)<6,8> = 0; 


Macro to evaluate a disk error status code as being a surface error 
(i.e., caused by the disk medium as opposed to the controller). 


MACRO 


SURFACE_ERROR (CODE) = 
CODE 


OR CODE EQL SS$~FORMAT 
OR CODE EQL SS$~FORCEDERROR 


' a 
: File ID's that are known constants 
LITERAL 


INDEX_FID = 1, ! index file 
BITMAP_FID = ¢- ' storage map file 
BADBLK_FID = 3, ' bad block file 
MFD_FIB = 4, ! MFD 
CORTMG_FID = 5, ' core image file 
VOLSET_FID = g. ' volume set list file 
CONTIN_FID = 7, ' continuation file 
BACKUP_F ID = 8. ; peckup journal file 

: BADLOG_F ID = 9; ! bad block log file 

: Constants used in protection checking 

LITERAL 
SYSTEM_UIC = 8, ! highest UIC group of system UIC's 


READ_ACCESS = 0, file access modes 


WRITE_ACCESS 


o 
2 
+ 
o 
. 
® 
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e 
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DELETE ACCESS = ¢: 
CREATE ACCESS = 5, 
RDATT_ACCESS = 4, 
WRATT ACCESS = 5, 
EXEC_ACCESS = 6; 


i Type codes used to identify blocks being read by READ_BLOCK. 
' Note that READ_BLOCK contains a table indexed by these codes. 


ITERAL 


HEADER_TYPE = 9. ! file header 
ITMAP_TYPE = 1, : average bitmap 
DIRECTORY TYPE = ¢° ' directory block 
x_TYPE = 5, ! other index file blocks 
DATA_TYPE z 4, ! random data file blocks 
QUOTA TYPE = 5, ! disk quota file blocks 
DIRINOX_TYPE = 6; ! directory index type blocks 


i Type codes used to identify blocks of memory requested from the 
allocator. Note that these codes index into a table in ALLOCATE. 


| 
| 
| 
| 


FCB_TYPE = 0, ! file control block 
WCB_TYPE = 1, ! window block 
vVCB_TYPE S ¢° ' volume control block 
RVT_TYPE s 3, ! relative volume table 
MVL_TYPE = 4, ! magtape volume List 
AQB_ TYPE = 5, ! ACP queue control block 
CACRE_TYPE = 6, ' cache data block 
TYPE = 7, ' Access Control List block 
CHIP_TYPE = 8; ! $CHKPRO internal interface block 


; Mode codes for the bad block log file scan routine 
LITERAL 


REMOVE BADBLOCK = 0, ! remove log entry 
ENTER_READERR = 1, ! log read error 
ENTER_WRITERR = 2; ! log write error 
Mode flags for the routine CHARGE_QUOTA. 
LITERAL 
QUOTA_CHECK = 0, ! check space requested against guota 
QUOTA_ CHARGE = 1; ! charge the space to the quota file 
Index codes for the subfunctions in the performance measurement data base. 
LITERAL 
PMS_F IND = g. ' directory searches 
PMS_ENTER = 7, ! directory entries P 
PMS_ALLOC = 8. ' storage map allocation and deallocation 
PMS_RWATT = 9; ! read/write attributes 


' 
Random constants. 


LITERAL 


M 
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LB_NUM = ! number of serial tock blocks. 
EFA = 30, ' event flag for 1/0 
MBX _EFN = 30, ' event a for asynchronous mailbox 1/0 
TIMER_EFN = 30, ! EFN for timers 
MAILBOX _EFN = 4 ! EFN for job controller reply mailbox 
FILENAME LENGTH = 80, ! maximum file name Length 
MIN_WINDOW =] ! minimum window size 
AX_WINDOW = 86 ! maximum window size (in pointers) 
' MAX_ACL_SIZE = 512; ! Maximum size of an (in core) ACL 
Modes to call TRUNCATE routine. 
LITERAL 
ERASE POINTERS = 1, ! erase retrieval pointers removed 
DEALLOC_BLOCKS = 1; ! deallocate the blocks 


write error. 


} 2 

| . 
Normal termination cleanup flags \ 

LITERAL : 

CLF _FIXFCB = 1, ! update FCB from header ‘ 

CLF _DOSPOOL = 2, ! send file to er ios queue ‘ 

CLF-INVWINDOW = 4, ! invalidate all windows ‘ 

CLF_SUPERSEDE = 5, ! supersede old file » 

CLF_DIRECTORY = g. ! directory operation enabled ; 

CLF_SPOOLFILE = 7, ! operation is on spool file ’ 

LF_-SYSPRV = 8, ! user has SYSTEM privilege or equivalent ; 

_ CLEANUP = 9 ! cleanup is in progress : 

CLF_INCOMPLETE = 16, ! file is not completely mapped : 

_NOBUIL S Ti. ' don't get ACL info from header : 

CLF _VOLOWNER = \¢- ! SYSPRV implied by volume ownership ’ 

CLF _GRPOWNER = 13, ! SYSPRV implied by GRPPRV and above : 

CLF _MARKFCBSTALE= 14, ! Mark primary_fcb stale clusterwide. : 

CLF _PFCB_REF_UP = 15, ! Primary.fcb refcnt is up. ‘ 

Error termination cleanup flags : 

CLF _DEACCESS = 1g. ! deaccess file : 

CLF_ZCHANNEL = 17, ! clean out user's channel : 

CLF_ TRUNCATE = 18, ! undo extend operation ; 

CLF _FLUSHF ID = 19, ' flush file ID cache : 

CLF_DELF ID = 20, ! delete file | : 

CLF _DELFILE = 21, ! delete complete file ; 

CLF _REMOVE = ¢° ; remove directory entry : 

CLF_REENTER = 25, ' put directory entry back | 3 

CLFTCLOSEFILE = 24. i Close internal file | ; 

CLF_DEACCQFILE = 25, ' deaccess quota file z 

CLF_DELWINDOW = g. ! deallocate window : 

CLF_HDRNOTCHG = 27, ! file header not charged to user ; 

CLF_DELEXTFID = g. ' delete extension header 3 

CLF_NOTCHARGED = 29, ! disk blocks not charged to user yet 3 

CLF _FIXLINK = 30, ! restore old file bac Link : 

CLF _REMAP = 31; !' remap the file to fix up the windows : 

4 | Py 

cloanup actions that modify the disk, and are to be turned off in case : 

: ofa Ps 
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LITERAL 
CLF _M_WR 


N 
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' supersede old file 

' undo ontene qygeretses 
' delete file | 

! delete complete file 


remove directory entry 
put directory entry back 
delete extension header 


! Various internal status flags for the STSFLGS bitvector. 


LITERAL 


P LOCK 
VE_F ILEHD 


0, 
1, 
2. 
= 3; 


Structure definitions for the file name 


MACRO 


i Di De Be Be De Dee Bes Des Be | 


LITERAL 
FND_LENGTH 


—@ofOOCCOCoOO 


Nee es ee ee ss 


16; 


POP SSSSS5—- 


last buffer read was from disk, 


already held lock. 


keep open_fil 


e lock 
Don’t update FILE_HEADER cell. 


descriptor block. 


name string length 
name string address 
version number 


length of filename descriptor 


: Structure of directory scan context block. 


MACRO 
DCX_VBN 
DCX_ BUFFER 
DCX_ENTRY 
DCX- VERSION 
+e 
DCX-VERLIMIT 
DCX-VERCOUNT 
LITERAL 


DCX_LENGTH 


o—-—- 
So 


~ 
ao 


Sooooooooe 


directory VBN 

address of current buffer 
address of current record 
address of current version 
address of end of data 
address of predecessor record 
version Limit of current name 
number of versions traversed 
name string of prev. entry 


28+F ILENAME_LENGTH*1#3 AND NOT 3; 


not cache 


wild card name 
wild card type. 
wild card version 
wild card in name 
maximize version 
search for file ID 
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! Ma 
; block. 


MACRO 
DIR_CONTEXT_DEF = 
BIND 


MACRO 


cro to define direct access 
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! Length of context block 


names for the standard directory context 


DIR_CONTEXTCDCX_VBNJ 

DIR-CONTEXTCOCX—BUF FER] : REF BBLOCK, 
DIR-CONTEXTLDCX-ENTRY : REF BBLOCK, 
DIR-CONTEXT DEX“ VERSION] : REF BBLOCK, 
DIR-CONTEXTCDCX~END : REF BBLOCK, 
DIR-CONTEXTCDCX-PRED] : REF BBLOCK, 
DIR-CONTEXT DEX-VERL IMIT] WORD, 
DIR-CONTEXT DCX-VERCOUNT : WORD 
DIR~CONTEXTCDCX~NAME : VECTOR C,BYTE) 


1‘ 
Structure of the saved audit block (in AUDIT_ARGLIST). 


AUDIT_TYPE = 0, 0, 8, 0%, ! audit record flags 
UDIT SUCCESS = 1, 0, 1, 8 %, ! successful file access 
UDIT_FID =e, 3° ° %, ! file ID of file 

DIT_ACCESS = 8, 3 . 0%, ! access mask 
DIT_PRIVS =12, 0,32, 0 %; ! privileges used 


LITERAL 
AUDIT LENGTH = 16, 
MAX_ADDIT_COUNT = 4; 


: Various field definitions. 


SET 
AV_DELAYTRNC 
AV TRUNCVBN 


SET 
VC_FLAGS 


length of audit block 
max number of auditable entries 


£0.31 0) ' Delay truncation operation 
4.0,32,0) ! VBN to truncate. 


(0,0,16,0), 
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vc met ed be MNT 
VCIBMA 
yeas 
VC_VOLFREE 
VC_IDXF ILEOF 
VC_ SEQNUM 


Define Linkages here. 


LINKAGE 
L_NORM 


L_MAP_POINTER 


L_JSB 


L_JSB_1ARG 
L_JSB_2ARGS 
L_R10UT 


; the code more readable 


LITERAL 
ERASE _THE DATA 
DO_NOT_ERASE 


FIELD 

DIRC = 
SET 
DIRC$W_INUSE 
DIRCSW-TOTALCELLS 
DIRCSWICELLSIZE 
DIRC$W~BLKSPERCELL 
DIRC$L-DATASEQ 
DIRCST_FIRSTCELL 
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AM 


nununnhunk 
—OOf£MwO 
Re 28 8 8 


CALL : GLOBAL (BASE = 10), 
JSB : 

GLOBAL (COUNT = 6 s 

NOTUSED (2,3, rae 

=1 


JSB GLOBAL (BASE = 
NOTUSED (4,5,6,7,8 


JSB (REGISTER = AY 
GLOBAL —E=1 
NOTUSED” “ae 5,6,7,8,9 

JSB (REGISTER=0, REGISTE 
GLOBAL (BASE = 1 
NOTUSED” (4,5,6,7,8 


CALL (; emesiatene =1) 
GLOBAL (BASE = 10) ; 


MAP -POINTER = 8) 
6,11) 


7 
1 
0) 
oVottts 


BAS 0) 
09,11), 
R=1) 
0) 

e . 9,11), 


! Booleen literals for erase on delete support. They are used to make 


1, ' Erase the extent 
0; ' Do not erase the extent 


eee ee ee rn ee ee 
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We haven't ripurer out yet how to get the length of CONTEXT_SAVE to 
track automatically yet in - Local compile. The value below is checked 
with an assume in -B32. 


ITERAL 
CONTEXT SIZE = 54; 


File system ene: storage. The following macro defines the cells 
in the global storage region. 


' 
' 
i 
' 
MACRO GLOBAL_STORAGE = 
STORAGE_START, VECTOR (0), ! start of global storage 


The cells bracketed by L.DATA_START and L_DATA_END delimit the data 
! im pages that are locked in the working set. 


Also note that ony changes in the number and/or size of cells between 
' here and the CONTEXT_START (aka CLEANUP_FLAGS) cell should adjust 

! the internal ptr defined by the INIT_BASE macro below such thes 

! the value of CONTEXT_START computes fo zero (compile COMMON.B32 and 
look in the Listing fo see whether it is correct, and if not, what 
the correct adjustment is). 


L_DATA_START, VECTOR (0) ! beginning of locked down data 
XOP_STACK, VECTOR (5*512, BYTE], ! 5 page xap kernel stack 
ECTOR (2), 1 xOP ead 


XQP" QUEUE Vv queue ° 

xap DISPATCHER, tf address of XQP dispatch routine 
il e 

CODE“ADDRESS, LONG. 

DAT E 


Length of cod 
ATA~ 0 
DATATADDRESS, LONG, 


base address of code 
base address of data area 
VLFP, LONG 
PREV-STKLIM, | VECTOR £21, 


saved frame pointer 
saved kernel stack Limits 


length of data area 
xQP_STKLIM, VECTOR XOP kernel stack Limits 


XQP_SAVFP, LONG saved XQP frame pointer 
REF BBLOCK, CCB of IO_CHANNEL. 
ONG, channel number for 1/0 


10” CHANNEL L 
BLOCK_LOCKID, LONG, activity block lock held. 


! The remaining locations are initialized to known values (mainly zero) 
: by the per request initialization routine. 


IMPURE START VEC 


. TOR 
vsee STATUS, VECTOR : ' 1/0 status to be resurned to user 


O_STATUS, VECTOR ' status block for FCP 

10_ PACKET REF BBLOCK, ' address of current 1/0 request packet 
! address of UCB of current request 
! address of VCB of current request 


' RYT of current volume set, or UCB 
' RVN of current volume 
! save volume context flags. 


' 
' 
' 
CURRENT ute, REF BBLOCK 
! 


CURRENT“RVT, REF BBLOCK, 
CURRENT-RVN G, 
SAVE_VC“FLAGS, WORD. 


Ra Be De Be Be Be Oe Be Se Se Se Se Oe Se Se Se Se Se Se Se Se Fe Be Se Se Se SESH Se Oe we Se Oe Se BH oe SH Se He Se He Se Oe SH Oe SHH Oe BH Oe BH ee He Se ee 
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BFR-LIST, BLOCKVECTOR (4,8 BYTE 
Listheads for in-process buffers 


FLGS, BITVECTOR (8), ! various internal status flags 
BLOCK CHECK, BYTE, ; aete operation blockin check 
NEW_FID, LONG, ! file number of unrecorded file ID 
NEW FID RVN, LONG, ! RVN of above 
HEADER_CBN, LONG, ' LBN of Last file header read 
BITMAP_VBN, LONG, ! VBN of current storage map block 
BITMAP _RVN L ! RVN of current storage map block 
BITMAP-BUFFER, REF BBLOCK, i address of current storage map block 
SAVE STATUS, L ' gayed status during DELETE'’s header read 
PRIVS_USED, BBLOCK (4), i Privileges used to gain access 
ACB_ABDR ! address of ACB for Cross process asts 

' 

BFR CREDITS, VECTOR be -WORDI. ! buffers credited to this process 
BFRS_USED, VECTOR (4,WORDJ, ! buffers actually in-process 
CACHE_HDR, REF BBLOCK, ! Address of buffer cache header 


' 
! pointer in INIT_BASE if any cells to this point are added, deleted, 
: or change size. 


The following locations are the re-enterable 
context area and must be saved when an 
secondary operation is performed. 

eeene The next item must be CLEANUP_FLAGS 
cleanup action flags 

address of current file header 

address of primary file FCB 

address of file window 

ointer to FIB currently in use 

urrent file header lock index. 


LEANUP-FLAGS, BITVECTOR (32), 
FILE HEADER, REF BBLOCK, 
REF BBLOCK, 


Y_FCB 

“wINDOW, REF BBLOCK. 
CURRENT ~F IB, REF BBLOCK, 
CURR_LCRINDX, LONG, 
PRIM-LCKINDX, LONG, 


aH START, VECTOR (0) 


Primary file lock basis index. 


OC_RVN, G, RVN specified by placement data 
LOC _LBN G, LBN specified by placement data 
UNREC_LBN, LONG, start LBN of unrecorded blocks 
UNREC_COUNT, LONG, ' count of unrecorded blocks 
UNREC _RVN, LON ! RVN containing unrecorded blocks 
PREV CINK, BBLOCK fF IDSC_LENGTHJ, ! old back Link of file 
CONTEXT_END, VECTOR (0), 


CONTEXT_SAVE, VECTOR CCONTEXT_SIZE, BYTE, 
! area to save primary context 
CONTEXT _SAVE_END, VECTOR [0],  ! end of above 
LB_LOCKID, VECTOR NUM serial lock ids. 
5 lock name bases. 
ile header cache sequence numbers. 


file data block cache sequence number. 


! See the comment above at the L_DATA_START cell regarding the compiletime 
LB | 
LB-DATASEQ | 


<= 

m 

o 

as 

S 

= 

wae 

z 

= 
ese © 8 © 


LB-FILESIZE, | VECTOR CLB"NUM value block file size. 

DIR_FCB REF BBLOCK, ! FCB of a beg file 

DIR“LCKINDX, LONG, ' Directory lock basis index. 

DIR_RECORD LONG } cocere number +p found directory entry 
DIRTCONTEXT, | BBLOCK CoCcx LENGTH). |: current directory, context 

OLD’ VERSION FID, BBLOCK CFIB C_LENGTH) ! Old version's F 

PREQ_VERSION, ' version number of previous directory entry 
PREV—NAME , VECTOR CFILENAME_LENGTH*1, BYTE), ! name of previous entry 


ee ee re ee ee Sc a ee aus 
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L_DATA_END, 
QUOTA. RECORD, 
deaite 
QUOTR-TNDEX, 
DUMMY “REC, 
AUDIT" COUNT, 
IMPURE _END, 


MATCHING_ACE, 


FILE_SPEC_LEN, 


PMS_TOT_READ 
PMS TOT WRITE, 
PMS~TOT~CACHE. 
PMS_FNC_READ 
PMS~FNC_WRITE, 
PMS-FNC-CACHE, 
PMS 


PMS" FNC_PFA, 


PMS_SUB_NEST, 


CPU, 
PMS” SUB-PFA, 
AUDIT_ARGLIST, 


F 
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VECTOR C1, BYTE), 
VECTOR FILENAR LEN TH*6, BYTE], | previous internal file name 
BBLOCK CFIDSC_LERNGTH), |! file I0’of su erseded ile 
BBLOCK [FIBSC_LENGTHJ, ! pr mary FIB of this operation 
BBLOCK [FIBSC_LENGTH), ! FIB for secondary file operation 
BBLOCK LARBSC_HEADER), ! local copy of caller's ARB 
VECTOR (0), ! end of locked down data area. 
LONG, ! record number of quota file entry 
ONG ' record number of free quota file entry 
REF BBLOCK, ' buffer address of quota record read 
L : gache index of cache entry found 
BBLOCK CDQFSC_LENGTH), ! — quota record for cache contents 
ONG, ! number of argument Lists in AUDIT_ARGLIST 
VECTOR (0), ! end of initialized impure area 


BBLOCK CATRSS_READACL], ! Matching ACE storage 


! The following two items must be adjacent. 


VECTOR C1, WORDJ, ! Full file spec Length 


' 
! Note that the size of the full file specification storage must 
track the definition in the routine FID_TO_SPEC. 


FULL_FILE_SPEC, 
The preceeding two items must be adjacent. 


VECTOR (1022, BYTE, ! Full spec storage 


The following cells are used by PMS. 


LONG, ' total disk reads 
G, ' total disk writes 
LONG, !' total cache reads 


! Base values of parameters at start of current subfunction. 


LONG, ! nested subfunction flag 
LONG, ! subfunction code 


BBLOCK CAUDIT_LENGTH*MAX_AUDIT_COUNT], ! security auditing argument Lists 


FCPDEF .B32;1 16-SEP-1984 16:59: EEE Page 18 


STORAGE _END, VECTOR (OJ, ! end of global storage 
i; 
' 


i Define the base offset for the gi geet common area. This is set up so 
! that "CONTEXT START (CLEANUP_FLAGS) is et offset zero. When storage is 
! added or removed before this cell, the base offset should be adjusted 
} accordingly. 
MACRO 
INIT_BASE = 
"-tatbcgnadatn SPTR = -2752 


i Macro to declare global storage locally for the current compilation. 
i This macro is invoked by most file system routines to Link to the 


global common area. 


MACRO BIND_COMMON = 
INIT_BASE 
EXTERNAL _ REGISTER BASE = 10; 


BIND BR = .BASE; 
DEF INE_LOCAL (GLOBAL _ STORAGE) 


MACRO DEFINE_LOCAL CA 8) = - sprrn 3 8 
TASSIGN (SPTR, SPIR’ + ZSIZE (2 


Macro to declare global storage globally for the entire file system. 


BACRO GLOBAL _ CORON = + 
ber IRE MeL BAL (GLOBAL_ STORAGE) 


MACRO DEF INE eee 1 CA, 


8) = 
OBAL Lt SETAC 
ZASSIGN (SPTR 
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i Macro to declare common base register external when full bind is not 


; necessary. 


MACRO BASE_REGISTER = 
EXTERNAL wegistet 
BASE = 10; %; 


L EQUIPMENT CORPORATION 
ENTIAL -AND PROPRIETARY 


0167 Vax7ums v4_o C 


IGITA 
ONFID 


